
Partial Class Secure_Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
        If User.IsInRole("WebAdmins") Then
            lkWebAdmin.HRef = "../Secure/WebAdmin/Default.aspx"
            lkWebAdmin.Style("color") = "#0000ff"
        End If
        If User.IsInRole("QuestionnaireAdmins") Or User.IsInRole("QuestionnaireManagers") Then
            lkQAdmin.HRef = "../Secure/QuestionnaireManagement/Default.aspx"
            lkQAdmin.Style("color") = "#0000ff"
        End If
    End Sub
End Class
